home *** CD-ROM | disk | FTP | other *** search
- ;----------------------------------------------------------------------------
- ;
- ; XPRESS Enter Prompt by Flax -- Feel free to modify :).
- ;
- ;----------------------------------------------------------------------------
-
- ; Procedure Declarations
-
- Declare Procedure Main ()
- Declare Procedure SlowDelay (BYTE b)
- Declare Procedure Finalise ()
-
- ;----------------------------------------------------------------------------
-
- ; Variable Declarations
-
- BYTE b
-
- ;----------------------------------------------------------------------------
-
- Main()
-
- ;-----------------------------------------------------------------[Main]-----
- Procedure Main ()
-
- While (1) do ; Endless Loop
-
- Print "@X03-@X08 " : SlowDelay(1) : Backup 2
- Print "@X0B-@X03 @X08e" : SlowDelay(1) : Backup 3
- Print "@X03-@X0B @X03e@X08n" : SlowDelay(1) : Backup 4
- Print "@X08-@X03 @X0Be@X03n@X08t" : SlowDelay(1) : Backup 5
- Print "@X00 @X08 @X03e@X0Bn@X03t@X08e" : SlowDelay(1) : Backup 5
- Print "@X00 @X08e@X03n@X0Bt@X03e@X08r" : SlowDelay(1) : Backup 5
- Print "@X00 @X08n@X03t@X0Be@X03r@X08 " : SlowDelay(1) : Backup 5
- Print "@X00 @X08t@X03e@X0Br@X03 @X08-" : SlowDelay(1) : Backup 5
- Print "@X00 @X08e@X03r@X0B @X03-" : SlowDelay(1) : Backup 4
- Print "@X00 @X08r@X03 @X0B-" : SlowDelay(1) : Backup 3
- Print "@X00 @X08 @X03-" : SlowDelay(1) : Backup 2
- Print "@X00 @X08-" : SlowDelay(1) : Backup 1
- Print "@X00 " : SlowDelay(1)
-
- ; Delay 7 clock ticks before displaying the Enter prompt again
- SlowDelay(7)
-
- ; Go back to start of the line
- Backup 9
-
- EndWhile
-
- EndProc
-
-
- ;-----------------------------------------------------------[Slow Delay]-----
- Procedure SlowDelay (BYTE b)
-
- ; This is the only way I know of hiding the cursor in PPL.
- COLOR 0
- Print "▄" + Chr(8)
-
- ; If the Enter key was pressed, exit.
- If ( INKEY() = Chr(13) ) Finalise()
-
- ; Delay "b" clock ticks
- DELAY b
-
- ; If the Enter key was pressed during the delay, exit.
- IF ( INKEY() = Chr(13) ) Finalise()
-
- EndProc
-
-
- ;-------------------------------------------------------------[Finalise]-----
- Procedure Finalise ()
-
- ; Clear the prompt
- Backup 9
- ClrEol
-
- ; Stuff the keyboard with the Enter key.
- KBDSTUFF Chr(13)
-
- END
-
- EndProc
-